@SystemMessage #VANC #VANP In here you can buy new chores
@SystemMessage #VANC #VANP These include chores different from your primary chores
@SystemMessage #VANC #VANP For when you want to earn additional gold or please your #DomHonorific
@NullResponse @If[GNMGold]<[2000]Then(Poor) 
@SystemMessage #VANC #VANP Do you wish to purchase additional chores?
[yes]@NullResponse
[no]@NullResponse @Goto(End)
@DifferentAnswer @SystemMessage #VANC #VANP Yes or no?
@NullResponse @RapidTextOn
@Flag(ChorePack1) @SystemMessage #VANC #VANP You have Chore Pack 1
@Flag(ChorePack2) @SystemMessage #VANC #VANP You have Chore Pack 2
@Flag(ChorePack3) @SystemMessage #VANC #VANP You have Chore Pack 3
@Flag(ChorePack4) @SystemMessage #VANC #VANP You have Chore Pack 4
@NullResponse @RapidTextOff
@SystemMessage #VANC #VANP These chore packs are available for purchase
@NullResponse @RapidTextOn
@Flag(ChorePack1) @SystemMessage #VANC #VANP Chore Pack 1
@Flag(ChorePack2) @SystemMessage #VANC #VANP Chore Pack 2
@Flag(ChorePack3) @SystemMessage #VANC #VANP Chore Pack 3
@Flag(ChorePack4) @SystemMessage #VANC #VANP Chore Pack 4
@NullResponse @RapidTextOff
@SystemMessage #VANC #VANP Which pack do you wish to purchase?
[1]@SystemMessage #VANC #VANP Making the Transaction @ChangeVar[GNMGold]=[GNMGold]-[2000] @Goto(1Bought)
[2]@SystemMessage #VANC #VANP Making the Transaction @ChangeVar[GNMGold]=[GNMGold]-[2000] @Goto(2Bought)
[3]@SystemMessage #VANC #VANP Making the Transaction @ChangeVar[GNMGold]=[GNMGold]-[2000] @Goto(3Bought)
[4]@SystemMessage #VANC #VANP Making the Transaction @ChangeVar[GNMGold]=[GNMGold]-[2000] @Goto(4Bought)
@DifferentAnswer @SystemMessage #VANC #VANP 1, 2, 3 or 4?
(1Bought)
@SystemMessage #VANC #VANP Transaction Complete @SetFlag(ChorePack1) @ChangeVar[ChoresBought]=[ChoresBought]+[1]
@End
(2Bought)
@SystemMessage #VANC #VANP Transaction Complete @SetFlag(ChorePack2) @ChangeVar[ChoresBought]=[ChoresBought]+[1]
@End
(3Bought)
@SystemMessage #VANC #VANP Transaction Complete @SetFlag(ChorePack3) @ChangeVar[ChoresBought]=[ChoresBought]+[1]
@End
(4Bought)
@SystemMessage #VANC #VANP Transaction Complete @SetFlag(ChorePack4) @ChangeVar[ChoresBought]=[ChoresBought]+[1]
@End
(End)
@End
(Poor)
@SystemMessage #VANC #VANP You need at least 2000 gold to buy a set of extra chores
@End